home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 43.zip / Superbase pro 2.1 disk 2.adf / funkeys.sbp < prev    next >
Text File  |  1987-11-25  |  957b  |  34 lines
  1. SBP
  2.  ÿ½ Set Function keys
  3.  ÿ¥1,"SELECT FIRST :VIEW"
  4.  ÿ¥2,"SELECT CURRENT : VIEW : WHILE NOT ( EOF (~~)):SELECT PREVIOUS :VIEW :WEND "
  5.  ÿ¥3,"SELECT PREVIOUS :VIEW"
  6.  ÿ¥4,"CLS :VIEW"
  7.  ÿ¥5,"SELECT NEXT :VIEW"
  8.  ÿ¥6,"SELECT CURRENT :WHILE NOT ( EOF (~~)):SELECT NEXT :VIEW :WEND"
  9.  ÿ¥7,"SELECT LAST :VIEW"
  10.  ÿ¥8,"a% = 0:a$ = ~~:REQUEST ~Enter Key~,~~,4,a%,a$,40:IF (a%) THEN SELECT KEY a$:IF FOUND (~~) THEN VIEW ELSE REQUEST ~Key ~ + a$,~Not found~,2:VIEW"
  11.  ÿ¥9,"DIRECTORY ~SBDATA:~"
  12.  ÿ¥10,"CLOSE ALL"
  13.  
  14.  ÿ¥11,"OPEN FORM ~ADDFORM~:OPEN FILE ~DEPOSITS~: FILE ~ADDRESS~"
  15.  ÿ¥12,"DIRECTORY ~ORDERS~:OPEN FORM ~ORDERS~"
  16.  ÿ¥13,"Superb!"
  17.  ÿ¥14,"RUN ~Menu~"
  18.  ÿ¥15,"DIRECTORY ~SBDATA:~:OPEN FORM ~ADDFORM~:FILE ~ADDRESS~: SET RECORD:LOAD~Addsrch~"
  19.  ÿ¥16,"SELECT FIRST:FORM"
  20.  ÿ¥17,"RUN ~Addsrch~"
  21.  ÿ¥18,"RUN ~SBDATA:Arraytest~"
  22.  ÿ¥19,"RUN ~SBDATA:Clientdeps~"
  23.  ÿ¥20."CLOSE ALL:OPEN FORM ~SBPEOPLE~:FORM SHOW"
  24.  
  25.  ÿÅÿ¥"Funkeys"
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.